SQLDIRECT "USE SESSION 1"
SQLPREPARE "DECLARE C1 CURSOR FOR"
SQLPREPARE "SELECT TOP 1000 * FROM myTABLE"
#BWSPOOL "<START LIKE>"

#catch {
#SQLPREPARE "WHERE myValue1 LIKE '%8%'"

#} err
#BWSPOOL $err
#BWSPOOL "<END LIKE>"
SQLEXECUTE

SQLDIRECT "OPEN C1"

SCREXEC SQLCLEAR.scr

#BWSPOOL "11111\r\n"
for {set i 0} {$i<=999} {incr i} {
#BWSPOOL $i
#BWSPOOL "\r\n"
SETVAL index($i)=$i
SQLDIRECT "FETCH NEXT C1 INTO array1($i),array2($i),array3($i),array4($i)"
}

SQLDIRECT "CLOSE C1"
SETVAL SQLSTATE=SELECT





